version 6.0 
#delimit ;
program define meancalc ;
   summarize `1' ;
   scalar `2'=_result(3);
end;